0 POKE53280,0:POKE53281,6:POKE646,1
1 REM -- QUOTE MODE DEMO BY ART SHIPMAN --
2 PK=244 : IF LEN(DS$)=0 THEN PK=212
3 Q$=CHR$(34)
4 PRINT Q$;PEEK(PK);:GOTO 4
5 PRINT Q$;:POKE PK,0:PRINT PEEK(PK);:GOTO 5
6 PRINT Q$;:POKE PK,1:PRINT PEEK(PK);:GOTO 6